﻿Imports System.Data.OleDb

Public Class DataProvider
    Public Shared Function ConnectDB() As OleDbConnection
        Dim connectionString As String
        connectionString = "Provider = Microsoft.Jet.OleDb.4.0; Data Source = QUANLYNHASACH.mdb"
        Dim connect As New OleDbConnection(connectionString)

        connect.Open()
        Return connect
    End Function
End Class